home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / startup / globals.i next >
Encoding:
Text File  |  1996-01-13  |  890 b   |  40 lines
  1.         IFND    GLOBALS_I
  2. GLOBALS_I   SET     1
  3.  
  4. **
  5. ** global datas for Eiffel startup program
  6. ** Must be included in any assembler source
  7. **
  8. ** Copyright © 1995, Guichard Damien.
  9. **
  10.  
  11.         IFND EXEC_TYPES_I
  12.         INCLUDE "exec/types.i"
  13.         ENDC
  14.  
  15.   STRUCTURE Globals,0
  16.  
  17.      APTR SysBase     ; Exec library base
  18.      APTR DOSBase     ; Dos library base
  19.      APTR stdin       ; input file handle
  20.      APTR stdout      ; output file handle
  21.      APTR heap        ; Memory for objects
  22.      ULONG lastchar   ; last character read
  23.      LONG lastint     ; last integer read
  24.      APTR laststring  ; last string read
  25.      FPTR creation    ; generic creation routine
  26.  
  27.      LABEL Globals_SIZEOF
  28.  
  29. EXEC_CALL MACRO
  30.         move.l  (SysBase,a4),a6
  31.         jsr     _LVO\1(a6)
  32.         ENDM
  33.  
  34. DOS_CALL MACRO
  35.         move.l  (DOSBase,a4),a6
  36.         jsr     _LVO\1(a6)
  37.         ENDM
  38.  
  39.     ENDC ;GLOBALS_I
  40.